home *** CD-ROM | disk | FTP | other *** search
/ Revista CD Expert 37 / CD Expert nº 37.iso / LastCall / lastcall.exe / stuff / lastcall.dxr / 00088_Ice in bar glass Behavior.ls < prev    next >
Encoding:
Text File  |  2000-03-27  |  1.5 KB  |  77 lines
  1. property pSpr, pIceAmount, pIcePerScoop, pMaxIceIncrements
  2.  
  3. on beginSprite me
  4.   pSpr = sprite(me.spriteNum)
  5.   pSpr.visible = 0
  6.   mEmptyGlass(me)
  7. end
  8.  
  9. on mPlaceDrink me, glassMember, newLoc
  10.   pSpr.member = glassMember
  11.   pSpr.loc = newLoc
  12.   pSpr.visible = 1
  13.   pIceAmount = 0
  14.   pMaxIceIncrements = 1
  15.   pIcePerScoop = sprite(me.spriteNum + 1).pCapacity / (2.0 * pMaxIceIncrements)
  16. end
  17.  
  18. on mRemoveDrink me
  19.   pSpr.locH = -1000
  20.   mEmptyGlass(me)
  21. end
  22.  
  23. on mEmptyGlass me
  24.   pIceAmount = 0
  25.   pSpr.member = sprite(me.spriteNum + 1).member
  26. end
  27.  
  28. on endSprite me
  29.   pSpr.visible = 1
  30. end
  31.  
  32. on mHideDrink me
  33.   pSpr.visible = 0
  34. end
  35.  
  36. on mouseEnter me
  37.   if pSpr.visible then
  38.     sendSprite(me.spriteNum + 1, #mouseEnter)
  39.   end if
  40. end
  41.  
  42. on mShowDrink me
  43.   pSpr.visible = 1
  44. end
  45.  
  46. on mUpdateIceLevel me, oldIceAmount
  47.   if voidp(oldIceAmount) then
  48.     nothing()
  49.   else
  50.     pIceAmount = oldIceAmount
  51.     if pIceAmount = 0 then
  52.       mEmptyGlass(me)
  53.     else
  54.       pSpr.member = nextIceMember(me, pIceAmount)
  55.     end if
  56.   end if
  57. end
  58.  
  59. on mFillIce me, masterSprite
  60.   if pIceAmount = 2 then
  61.     alertBeep()
  62.     return 0
  63.   end if
  64.   if pIceAmount >= pMaxIceIncrements then
  65.     alertBeep()
  66.     return 0
  67.   else
  68.     return addIce(pSpr, masterSprite, pMaxIceIncrements, nextIceMember(me, pIceAmount + 1), getAt(["ice_into_mglass1", "ice_into_mglass2"], pIceAmount + 1))
  69.   end if
  70. end
  71.  
  72. on nextIceMember me, iceAmount
  73.   global gBarTopManager
  74.   glassType = getBarTopGlass(gBarTopManager, glassSpriteToBarSlot(me.spriteNum + 1))
  75.   return glassPrefix(glassType) & "_" & getAt(["full"], iceAmount)
  76. end
  77.